library(plotly)
Loading required package: ggplot2

Attaching package: 'plotly'
The following object is masked from 'package:ggplot2':

    last_plot
The following object is masked from 'package:stats':

    filter
The following object is masked from 'package:graphics':

    layout
library(crosstalk)

files <- list.files("dataCSV")
i <- 0
frame = data.frame()
for (i in files) {
  csv <- gsub(" ", "", paste("dataCSV\\", i))
  data <- read.csv(csv, sep = ";", encoding = "Windows-1250")
  df <- data.frame(data)
  frame <- plyr::rbind.fill(frame, df)
}
f <- highlight_key(frame)

bscols(widths = 10,
       filter_select(id = "powiat_miasto", label = "Powiat", f, ~ powiat_miasto),
       plot_ly(data = f, x = frame$stan_rekordu_na, y = frame$liczba_przypadkow, type = 'scatter', mode = 'lines', color = frame$powiat_miasto) %>% layout(title = "Liczba zakażen Covid-19", xaxis = list(title = "data"), yaxis = list(title = "liczba przypadków"))
)
Warning in bscols(widths = 10, filter_select(id = "powiat_miasto", label =
"Powiat", : Sum of bscol width units is greater than 12
Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors

Warning in RColorBrewer::brewer.pal(N, "Set2"): n too large, allowed maximum for palette Set2 is 8
Returning the palette you asked for with that many colors
LS0tDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KYGBge3J9DQpsaWJyYXJ5KHBsb3RseSkNCmxpYnJhcnkoY3Jvc3N0YWxrKQ0KDQpmaWxlcyA8LSBsaXN0LmZpbGVzKCJkYXRhQ1NWIikNCmkgPC0gMA0KZnJhbWUgPSBkYXRhLmZyYW1lKCkNCmZvciAoaSBpbiBmaWxlcykgew0KICBjc3YgPC0gZ3N1YigiICIsICIiLCBwYXN0ZSgiZGF0YUNTVlxcIiwgaSkpDQogIGRhdGEgPC0gcmVhZC5jc3YoY3N2LCBzZXAgPSAiOyIsIGVuY29kaW5nID0gIldpbmRvd3MtMTI1MCIpDQogIGRmIDwtIGRhdGEuZnJhbWUoZGF0YSkNCiAgZnJhbWUgPC0gcGx5cjo6cmJpbmQuZmlsbChmcmFtZSwgZGYpDQp9DQpmIDwtIGhpZ2hsaWdodF9rZXkoZnJhbWUpDQoNCmJzY29scyh3aWR0aHMgPSAxMCwNCiAgICAgICBmaWx0ZXJfc2VsZWN0KGlkID0gInBvd2lhdF9taWFzdG8iLCBsYWJlbCA9ICJQb3dpYXQiLCBmLCB+IHBvd2lhdF9taWFzdG8pLA0KICAgICAgIHBsb3RfbHkoZGF0YSA9IGYsIHggPSBmcmFtZSRzdGFuX3Jla29yZHVfbmEsIHkgPSBmcmFtZSRsaWN6YmFfcHJ6eXBhZGtvdywgdHlwZSA9ICdzY2F0dGVyJywgbW9kZSA9ICdsaW5lcycsIGNvbG9yID0gZnJhbWUkcG93aWF0X21pYXN0bykgJT4lIGxheW91dCh0aXRsZSA9ICJMaWN6YmEgemFrYcW8ZW4gQ292aWQtMTkiLCB4YXhpcyA9IGxpc3QodGl0bGUgPSAiZGF0YSIpLCB5YXhpcyA9IGxpc3QodGl0bGUgPSAibGljemJhIHByenlwYWRrw7N3IikpDQopDQpgYGA=